home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / fract2.sha < prev    next >
Text File  |  1994-03-01  |  225b  |  4 lines
  1. 10 REM UN AUTRE PROGRAMME DE FRACTION
  2. 20 REM DISTRIBUE PAR W-TEL
  3. 30 CLEAR :Q=1:R=1:INPUT "N:",N:X=N:FOR G=1 TO 50:A=INTN:N=N-A:T=P+A*Q:P=Q:Q=T:T=R+A*S:R=S:S=T:IF ABS(X-Q/S)=>1E-12;N=1/N:NEXT ELSE PRINT Q"/"S"="Q/S:GOTO 10
  4.